home *** CD-ROM | disk | FTP | other *** search
/ Weekly Play Boy All Stars / Weekly Play Boy All Stars 1.iso / pc / SS / M_ITO.EXE / M_ITO.dcr / 00015.ls < prev    next >
Encoding:
Text File  |  2003-01-22  |  284 b   |  13 lines
  1. global gphotolist, grandomlist
  2.  
  3. on exitFrame
  4.   gphotolist = list(1, 2, 3, 4, 5)
  5.   grandomlist = list()
  6.   repeat with i = 5 down to 1
  7.     randomnum = random(i)
  8.     append(grandomlist, getAt(gphotolist, randomnum))
  9.     deleteAt(gphotolist, randomnum)
  10.   end repeat
  11.   put grandomlist
  12. end
  13.